100
Show a combination of lines and filled curves in the overview

Dim oGraph as P
Dim var_CategoryAxis as P
Dim var_FormatGridLinesOptions as P
Dim var_FormatGridLinesOptions1 as P
Dim var_Legend as P
Dim var_Overview as P
Dim var_Serie as P
Dim var_Serie1 as P
Dim var_Serie2 as P
Dim var_Series as P
Dim var_ValueAxes as P
Dim var_ValueAxis as P
Dim var_ValueAxis1 as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.ValueSize = 6
oGraph.VisualAppearance.Add(1,"C:\Program Files\Exontrol\ExGraph\Sample\EBN\googlebtn.ebn")
oGraph.Template = "Background(199) = 25198720" // oGraph.Background(199) = 25198720
oGraph.Template = "Background(202) = 32567536" // oGraph.Background(202) = 32567536
oGraph.Data = "C:\Program Files\Exontrol\ExGraph\Sample\Data/msft.csv"
oGraph.SeriesColors = "blue,lightblue,green"
var_ValueAxes = oGraph.ValueAxes
	var_ValueAxis = var_ValueAxes.Add()
		var_ValueAxis.Start = 0.1
		var_ValueAxis.CursorFormat = "(value format ``) replace `.` with `<font ;6><off -4><fgcolor A0A0A0> `"
	var_ValueAxis1 = var_ValueAxes.Add("2nd")
		var_ValueAxis1.End = 0.1
		var_ValueAxis1.Visible = .f.
		var_ValueAxis1.MajorGridLines.Color = -1
var_CategoryAxis = oGraph.CategoryAxis
	var_CategoryAxis.Categories = "Date"
	var_CategoryAxis.Format = "value mid 9 left 2"
	var_FormatGridLinesOptions = var_CategoryAxis.ChartGridLines
		var_FormatGridLinesOptions.Format = "`<fgcolor black>` + ((0:=date(value)) format `mmm`) + (month(=:0) = 1 ? `<br><b>` + (=:0 format `YYYY`) : ``)"
		var_FormatGridLinesOptions.Align = 10 'exTextAlignBottom + exTextAlignRight
		var_FormatGridLinesOptions.Color = "lightgray"
	var_CategoryAxis.MajorTicks.Color = "black"
	var_CategoryAxis.CursorFormat = "value left 10"
	var_FormatGridLinesOptions1 = var_CategoryAxis.OverviewGridLines
		var_FormatGridLinesOptions1.Format = "value left 4"
		var_FormatGridLinesOptions1.Color = "lightgray"
var_Series = oGraph.Series
	var_Serie = var_Series.Add()
		var_Serie.Name = "<fgcolor blue>MSFT</fgcolor>"
		var_Serie.Data = "Open,High,Low,Close"
		var_Serie.Type = "candle"
		var_Serie.CursorFormat = "`Open: <b>` + (%v0 format `0`) + `</b><br>High: ` + (%v1 format `0`) + `<br>Low: ` + (%v2 format `0`) + `<br>Close: <b>` + (%v1 format `0`) + `</b>`"
	var_Serie1 = var_Series.Add()
		var_Serie1.Name = "<fgcolor lightblue>Volume</fgcolor>"
		var_Serie1.Data = "Volume"
		var_Serie1.Axis = "2nd"
		var_Serie1.CursorFormat = "(name replace `lightblue` with `white`) + `: ` + (value format `0`)"
	var_Serie2 = var_Series.Add()
		var_Serie2.Name = "<fgcolor green>Adj Close</fgcolor>"
		var_Serie2.Data = "Adj Close"
		var_Serie2.Type = "line"
		' var_Serie2.Misc(6) = 2
		oGraph.TemplateDef = "dim var_Serie2"
		oGraph.TemplateDef = var_Serie2
		oGraph.Template = "var_Serie2.Misc(6) = 2"

		var_Serie2.Style = 1
		var_Serie2.Visible = .f.
		var_Serie2.CursorFormat = "(name replace `green` with `white`) + `: ` + (value format `0`)"
var_Overview = oGraph.Overview
	var_Overview.Visible = .t.
	var_Overview.Serie = "0,1:darkblue-fill lightblue"
var_Legend = oGraph.Legend
	var_Legend.Visible = .t.
	var_Legend.Grid = "x1"
oGraph.Cursor.Visible = .t.
oGraph.EndUpdate()

99
Display multiple curves of values in the overview

Dim oGraph as P
Dim var_Overview as P
Dim var_Serie as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.ValueSize = 6
oGraph.Data = "C:\Program Files\Exontrol\ExGraph\Sample\Data/msft.csv"
var_Serie = oGraph.Series.Add()
	var_Serie.Name = "msft"
	var_Serie.Data = "Open,High,Low,Close"
	var_Serie.Type = "candle"
var_Overview = oGraph.Overview
	var_Overview.Visible = .t.
	var_Overview.Serie = "0:black,0[1]:red,0[2]:blue,0[3]:green"
oGraph.EndUpdate()

98
Display the series as a filled curve rather than a line in the overview

Dim oGraph as P
Dim var_Overview as P
Dim var_Serie as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.ValueSize = 6
oGraph.Data = "C:\Program Files\Exontrol\ExGraph\Sample\Data/msft.csv"
var_Serie = oGraph.Series.Add()
	var_Serie.Name = "msft"
	var_Serie.Data = "Open,High,Low,Close"
	var_Serie.Type = "candle"
var_Overview = oGraph.Overview
	var_Overview.Visible = .t.
	var_Overview.Serie = "0:red-fill"
oGraph.EndUpdate()

97
Redefine the color to show the serie within the overview

Dim oGraph as P
Dim var_Overview as P
Dim var_Serie as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.ValueSize = 6
oGraph.Data = "C:\Program Files\Exontrol\ExGraph\Sample\Data/msft.csv"
var_Serie = oGraph.Series.Add()
	var_Serie.Name = "msft"
	var_Serie.Data = "Open,High,Low,Close"
	var_Serie.Type = "candle"
var_Overview = oGraph.Overview
	var_Overview.Visible = .t.
	var_Overview.Serie = "0:red"
oGraph.EndUpdate()

96
Defines the color, style and width/size to display the lines of values in the overview

Dim oGraph as P
Dim var_LineOptions as P
Dim var_Overview as P
Dim var_Serie as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.ValueSize = 6
oGraph.Data = "C:\Program Files\Exontrol\ExGraph\Sample\Data/msft.csv"
var_Serie = oGraph.Series.Add()
	var_Serie.Name = "msft"
	var_Serie.Data = "Open,High,Low,Close"
	var_Serie.Type = "candle"
var_Overview = oGraph.Overview
	var_Overview.Visible = .t.
	var_LineOptions = var_Overview.Line
		var_LineOptions.Color = "red"
		var_LineOptions.Width = 2
		var_LineOptions.Style = 2
oGraph.EndUpdate()

95
Resizes of the control's overview

Dim oGraph as P
Dim var_Overview as P
Dim var_Serie as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.ValueSize = 6
oGraph.Data = "C:\Program Files\Exontrol\ExGraph\Sample\Data/msft.csv"
var_Serie = oGraph.Series.Add()
	var_Serie.Name = "msft"
	var_Serie.Data = "Open,High,Low,Close"
	var_Serie.Type = "candle"
var_Overview = oGraph.Overview
	var_Overview.Visible = .t.
	var_Overview.Size = 32
oGraph.EndUpdate()

94
Anchors the overview-window

Dim oGraph as P
Dim var_Overview as P
Dim var_Serie as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.ValueSize = 6
oGraph.Data = "C:\Program Files\Exontrol\ExGraph\Sample\Data/msft.csv"
var_Serie = oGraph.Series.Add()
	var_Serie.Name = "msft"
	var_Serie.Data = "Open,High,Low,Close"
	var_Serie.Type = "candle"
var_Overview = oGraph.Overview
	var_Overview.Visible = .t.
	var_Overview.Dock = 3
oGraph.EndUpdate()

93
Shows the overview

Dim oGraph as P
Dim var_Serie as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.ValueSize = 6
oGraph.Data = "C:\Program Files\Exontrol\ExGraph\Sample\Data/msft.csv"
var_Serie = oGraph.Series.Add()
	var_Serie.Name = "msft"
	var_Serie.Data = "Open,High,Low,Close"
	var_Serie.Type = "candle"
oGraph.Overview.Visible = .t.
oGraph.EndUpdate()

92
Locks the legend (no value is hidden or shown when user clicks a symbol)
Dim oGraph as P
Dim var_Legend as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.ValueAxis.AsPercent = .t.
oGraph.Series.Add("Pacific Ocean(16525), Atlantic Ocean(10646), Indian Ocean(7056), Southern Ocean(2033), Arctic Ocean(1406)")
var_Legend = oGraph.Legend
	var_Legend.Visible = .t.
	var_Legend.Locked = .t.
oGraph.EndUpdate()

91
Aligns the legend's content

Dim oGraph as P
Dim var_Legend as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.ValueAxis.AsPercent = .t.
oGraph.Series.Add("Pacific Ocean(16525), Atlantic Ocean(10646), Indian Ocean(7056), Southern Ocean(2033), Arctic Ocean(1406)")
var_Legend = oGraph.Legend
	var_Legend.Visible = .t.
	var_Legend.Grid = "2x"
	var_Legend.Align = 0
oGraph.EndUpdate()

90
Arranges the legend objects on columns and rows

Dim oGraph as P
Dim var_Legend as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.ValueAxis.AsPercent = .t.
oGraph.Series.Add("Pacific Ocean(16525), Atlantic Ocean(10646), Indian Ocean(7056), Southern Ocean(2033), Arctic Ocean(1406)")
var_Legend = oGraph.Legend
	var_Legend.Visible = .t.
	var_Legend.Grid = "2x"
oGraph.EndUpdate()

89
Arranges the legend objects on columns and rows

Dim oGraph as P
Dim var_Legend as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.ValueAxis.AsPercent = .t.
oGraph.Series.Add("Pacific Ocean(16525), Atlantic Ocean(10646), Indian Ocean(7056), Southern Ocean(2033), Arctic Ocean(1406)")
var_Legend = oGraph.Legend
	var_Legend.Visible = .t.
	var_Legend.Flow = 1
	var_Legend.Grid = "x2"
oGraph.EndUpdate()

88
Arranges the legend objects from left to right or top to bottom

Dim oGraph as P
Dim var_Legend as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.ValueAxis.AsPercent = .t.
oGraph.Series.Add("Pacific Ocean(16525), Atlantic Ocean(10646), Indian Ocean(7056), Southern Ocean(2033), Arctic Ocean(1406)")
var_Legend = oGraph.Legend
	var_Legend.Visible = .t.
	var_Legend.Flow = 1
oGraph.EndUpdate()

87
Defines the size to display the symbol, within the legend

Dim oGraph as P
Dim var_Legend as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.ValueAxis.AsPercent = .t.
oGraph.Series.Add("Pacific Ocean(16525), Atlantic Ocean(10646), Indian Ocean(7056), Southern Ocean(2033), Arctic Ocean(1406)")
var_Legend = oGraph.Legend
	var_Legend.Visible = .t.
	var_Legend.SymbolWidth = 32
	var_Legend.SymbolHeight = 32
oGraph.EndUpdate()

86
Defines the height to display the symbol, within the legend

Dim oGraph as P
Dim var_Legend as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.ValueAxis.AsPercent = .t.
oGraph.Series.Add("Pacific Ocean(16525), Atlantic Ocean(10646), Indian Ocean(7056), Southern Ocean(2033), Arctic Ocean(1406)")
var_Legend = oGraph.Legend
	var_Legend.Visible = .t.
	var_Legend.SymbolHeight = 32
oGraph.EndUpdate()

85
Defines the width to display the symbol, within the legend

Dim oGraph as P
Dim var_Legend as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.ValueAxis.AsPercent = .t.
oGraph.Series.Add("Pacific Ocean(16525), Atlantic Ocean(10646), Indian Ocean(7056), Southern Ocean(2033), Arctic Ocean(1406)")
var_Legend = oGraph.Legend
	var_Legend.Visible = .t.
	var_Legend.SymbolWidth = 32
oGraph.EndUpdate()

84
Aligns the symbol of the serie relative to the label of the serie, within the legend

Dim oGraph as P
Dim var_Legend as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.ValueAxis.AsPercent = .t.
oGraph.Series.Add("Pacific Ocean(16525), Atlantic Ocean(10646), Indian Ocean(7056), Southern Ocean(2033), Arctic Ocean(1406)")
var_Legend = oGraph.Legend
	var_Legend.Visible = .t.
	var_Legend.SymbolAlign = 17 'exSymbolCenter + exSymbolTop
oGraph.EndUpdate()

83
Displays the labels using a fixed-size

Dim oGraph as P
Dim var_Legend as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.ValueAxis.AsPercent = .t.
oGraph.Series.Add("Pacific Ocean(16525), Atlantic Ocean(10646), Indian Ocean(7056), Southern Ocean(2033), Arctic Ocean(1406)")
var_Legend = oGraph.Legend
	var_Legend.Visible = .t.
	var_Legend.FormatText = 16
	var_Legend.LabelFixedWidth = 48
	var_Legend.LabelFixedHeight = 32
oGraph.EndUpdate()

82
Displays the labels using a fixed-height

Dim oGraph as P
Dim var_Legend as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.ValueAxis.AsPercent = .t.
oGraph.Series.Add("Pacific Ocean(16525), Atlantic Ocean(10646), Indian Ocean(7056), Southern Ocean(2033), Arctic Ocean(1406)")
var_Legend = oGraph.Legend
	var_Legend.Visible = .t.
	var_Legend.FormatText = 4
	var_Legend.LabelFixedHeight = 32
	var_Legend.Dock = 3
oGraph.EndUpdate()

81
Displays the labels using a fixed-width

Dim oGraph as P
Dim var_Legend as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.ValueAxis.AsPercent = .t.
oGraph.Series.Add("Pacific Ocean(16525), Atlantic Ocean(10646), Indian Ocean(7056), Southern Ocean(2033), Arctic Ocean(1406)")
var_Legend = oGraph.Legend
	var_Legend.Visible = .t.
	var_Legend.FormatText = 32768
	var_Legend.LabelFixedWidth = 32
oGraph.EndUpdate()

80
Hides the labels on the legend (method 2)

Dim oGraph as P
Dim var_Serie as local

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.ValueAxis.AsPercent = .t.
' oGraph.Series.Add("Pacific Ocean(16525), Atlantic Ocean(10646), Indian Ocean(7056), Southern Ocean(2033), Arctic Ocean(1406)").LegendFormat = "``"
var_Serie = oGraph.Series.Add("Pacific Ocean(16525), Atlantic Ocean(10646), Indian Ocean(7056), Southern Ocean(2033), Arctic Ocean(1406)")
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.LegendFormat = ``````"

oGraph.Legend.Visible = .t.
oGraph.EndUpdate()

79
Hides the labels on the legend (method 1)

Dim oGraph as P
Dim var_Legend as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.ValueAxis.AsPercent = .t.
oGraph.Series.Add("Pacific Ocean(16525), Atlantic Ocean(10646), Indian Ocean(7056), Southern Ocean(2033), Arctic Ocean(1406)")
var_Legend = oGraph.Legend
	var_Legend.Visible = .t.
	var_Legend.FormatText = 1024
	var_Legend.LabelFixedWidth = 1
oGraph.EndUpdate()

78
Specifies the flags the labels use to display on the legend (for instance, displays the labels on multiple lines)

Dim oGraph as P
Dim var_Legend as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.ValueAxis.AsPercent = .t.
oGraph.Series.Add("Pacific Ocean(16525), Atlantic Ocean(10646), Indian Ocean(7056), Southern Ocean(2033), Arctic Ocean(1406)")
var_Legend = oGraph.Legend
	var_Legend.Visible = .t.
	var_Legend.FormatText = 16
	var_Legend.LabelFixedWidth = 48
oGraph.EndUpdate()

77
Reverses the order of the items within the legend

Dim oGraph as P
Dim var_Legend as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.ValueAxis.AsPercent = .t.
oGraph.Series.Add("Pacific Ocean(16525), Atlantic Ocean(10646), Indian Ocean(7056), Southern Ocean(2033), Arctic Ocean(1406)")
var_Legend = oGraph.Legend
	var_Legend.Visible = .t.
	var_Legend.Reverse = .t.
oGraph.EndUpdate()

76
Defines the legend's padding (space between legend's symbol/label and its borders)

Dim oGraph as P
Dim var_Legend as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.ValueAxis.AsPercent = .t.
oGraph.Series.Add("Pacific Ocean(16525), Atlantic Ocean(10646), Indian Ocean(7056), Southern Ocean(2033), Arctic Ocean(1406)")
var_Legend = oGraph.Legend
	var_Legend.Visible = .t.
	var_Legend.Pad = "12,0"
oGraph.EndUpdate()

75
Specifies the edge of the container the legend-window is anchored to

Dim oGraph as P
Dim var_Legend as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.ValueAxis.AsPercent = .t.
oGraph.Series.Add("Pacific Ocean(16525), Atlantic Ocean(10646), Indian Ocean(7056), Southern Ocean(2033), Arctic Ocean(1406)")
var_Legend = oGraph.Legend
	var_Legend.Visible = .t.
	var_Legend.Dock = 1
oGraph.EndUpdate()

74
Show the legend

Dim oGraph as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.ValueAxis.AsPercent = .t.
oGraph.Series.Add("Pacific Ocean(16525), Atlantic Ocean(10646), Indian Ocean(7056), Southern Ocean(2033), Arctic Ocean(1406)")
oGraph.Legend.Visible = .t.
oGraph.EndUpdate()

73
Defines the tooltip's padding (space between tooltip's caption and its borders), for tooltips when cursor hovers the chart

Dim oGraph as P
Dim var_Cursor as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.Series.Add("Asia(4600), Africa(1300), Europe(747), North America(579), South America(431), Australia/Oceania(42)")
oGraph.Series.Add("Asia(4458), Africa(3037), North America(2470), South America(1784), Antarctica(1400), Europe(1018), Australia/Oceania(856)")
var_Cursor = oGraph.Cursor
	var_Cursor.Visible = .t.
	var_Cursor.TooltipPad = "8,8"
oGraph.EndUpdate()

72
Defines the foreground and background colors to show the tooltips on values

Dim oGraph as P
Dim var_Cursor as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.Series.Add("Asia(4600), Africa(1300), Europe(747), North America(579), South America(431), Australia/Oceania(42)")
oGraph.Series.Add("Asia(4458), Africa(3037), North America(2470), South America(1784), Antarctica(1400), Europe(1018), Australia/Oceania(856)")
var_Cursor = oGraph.Cursor
	var_Cursor.Visible = .t.
	var_Cursor.SerieTooltipBackColor = "red"
	var_Cursor.SerieTooltipForeColor = "yellow"
oGraph.EndUpdate()

71
Defines the foreground and background colors to show the tooltips on axes

Dim oGraph as P
Dim var_Cursor as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.Series.Add("Asia(4600), Africa(1300), Europe(747), North America(579), South America(431), Australia/Oceania(42)")
oGraph.Series.Add("Asia(4458), Africa(3037), North America(2470), South America(1784), Antarctica(1400), Europe(1018), Australia/Oceania(856)")
var_Cursor = oGraph.Cursor
	var_Cursor.Visible = .t.
	var_Cursor.AxisTooltipBackColor = "red"
	var_Cursor.AxisTooltipForeColor = "yellow"
oGraph.EndUpdate()

70
Defines the color, width or style of line to display the crosshair over the hover/touch area (showCursorCategoryLine or showCursorValueLine)

Dim oGraph as P
Dim var_Cursor as P
Dim var_LineOptions as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.Series.Add("Asia(4600), Africa(1300), Europe(747), North America(579), South America(431), Australia/Oceania(42)")
oGraph.Series.Add("Asia(4458), Africa(3037), North America(2470), South America(1784), Antarctica(1400), Europe(1018), Australia/Oceania(856)")
var_Cursor = oGraph.Cursor
	var_Cursor.Visible = .t.
	var_LineOptions = var_Cursor.Line
		var_LineOptions.Color = "red"
		var_LineOptions.Style = 0
		var_LineOptions.Width = 2
oGraph.EndUpdate()

69
Hides the horizontal x-line, when the crosshair cursor hovers the chart (available for xy-chart types only)

Dim oGraph as P
Dim var_Cursor as P
Dim var_Serie as P
Dim var_Serie1 as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
var_Serie = oGraph.Series.Add("11 22 33,44 55 66,77 88 99,12 34 56,78 90 23")
	var_Serie.Type = "bubble"
	' var_Serie.Misc(1) = 64
	oGraph.TemplateDef = "dim var_Serie"
	oGraph.TemplateDef = var_Serie
	oGraph.Template = "var_Serie.Misc(1) = 64"

var_Serie1 = oGraph.Series.Add("21 32 43,54 65 76,87 98 09,45 67 89,90 23 45")
	var_Serie1.Type = "bubble"
	' var_Serie1.Misc(1) = 64
	oGraph.TemplateDef = "dim var_Serie1"
	oGraph.TemplateDef = var_Serie1
	oGraph.Template = "var_Serie1.Misc(1) = 64"

var_Cursor = oGraph.Cursor
	var_Cursor.Visible = .t.
	var_Cursor.ShowCursorYLine = .f.
oGraph.EndUpdate()

68
Hides the vertical y-line, when the crosshair cursor hovers the chart (available for xy-chart types only)

Dim oGraph as P
Dim var_Cursor as P
Dim var_Serie as P
Dim var_Serie1 as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
var_Serie = oGraph.Series.Add("11 22 33,44 55 66,77 88 99,12 34 56,78 90 23")
	var_Serie.Type = "bubble"
	' var_Serie.Misc(1) = 64
	oGraph.TemplateDef = "dim var_Serie"
	oGraph.TemplateDef = var_Serie
	oGraph.Template = "var_Serie.Misc(1) = 64"

var_Serie1 = oGraph.Series.Add("21 32 43,54 65 76,87 98 09,45 67 89,90 23 45")
	var_Serie1.Type = "bubble"
	' var_Serie1.Misc(1) = 64
	oGraph.TemplateDef = "dim var_Serie1"
	oGraph.TemplateDef = var_Serie1
	oGraph.Template = "var_Serie1.Misc(1) = 64"

var_Cursor = oGraph.Cursor
	var_Cursor.Visible = .t.
	var_Cursor.ShowCursorXLine = .f.
oGraph.EndUpdate()

67
Hides the horizontal/vertical value/y-line, when the crosshair cursor hovers the chart

Dim oGraph as P
Dim var_Cursor as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.Series.Add("Asia(4600), Africa(1300), Europe(747), North America(579), South America(431), Australia/Oceania(42)")
var_Cursor = oGraph.Cursor
	var_Cursor.Visible = .t.
	var_Cursor.ShowCursorValueLine = .f.
oGraph.EndUpdate()

66
Displays all tooltips for all series of the category unit being indicated by the vertical/horizontal category/x-line

Dim oGraph as P
Dim var_Cursor as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.Series.Add("Asia(4600), Africa(1300), Europe(747), North America(579), South America(431), Australia/Oceania(42)")
oGraph.Series.Add("Asia(4458), Africa(3037), North America(2470), South America(1784), Antarctica(1400), Europe(1018), Australia/Oceania(856)")
var_Cursor = oGraph.Cursor
	var_Cursor.Visible = .t.
	var_Cursor.ShowCursorSerieTooltip = 3
oGraph.EndUpdate()

65
The pointer indicates the series whose tooltip is displayed, when the crosshair cursor hovers its chart

Dim oGraph as P
Dim var_Cursor as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.Series.Add("Asia(4600), Africa(1300), Europe(747), North America(579), South America(431), Australia/Oceania(42)")
oGraph.Series.Add("Asia(4458), Africa(3037), North America(2470), South America(1784), Antarctica(1400), Europe(1018), Australia/Oceania(856)")
var_Cursor = oGraph.Cursor
	var_Cursor.Visible = .t.
	var_Cursor.ShowCursorSerieTooltip = 2
oGraph.EndUpdate()

64
Hides the tooltip when the crosshair cursor hovers the chart

Dim oGraph as P
Dim var_Cursor as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.Series.Add("Asia(4600), Africa(1300), Europe(747), North America(579), South America(431), Australia/Oceania(42)")
oGraph.Series.Add("Asia(4458), Africa(3037), North America(2470), South America(1784), Antarctica(1400), Europe(1018), Australia/Oceania(856)")
var_Cursor = oGraph.Cursor
	var_Cursor.Visible = .t.
	var_Cursor.ShowCursorSerieTooltip = 0
oGraph.EndUpdate()

63
Shows the category/x-line when the cursor is near the value

Dim oGraph as P
Dim var_Cursor as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.Series.Add("Asia(4600), Africa(1300), Europe(747), North America(579), South America(431), Australia/Oceania(42)")
var_Cursor = oGraph.Cursor
	var_Cursor.Visible = .t.
	var_Cursor.ShowCursorCategoryLine = 1
oGraph.EndUpdate()

62
Hides the cursor's category/x-line

Dim oGraph as P
Dim var_Cursor as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.Series.Add("Asia(4600), Africa(1300), Europe(747), North America(579), South America(431), Australia/Oceania(42)")
var_Cursor = oGraph.Cursor
	var_Cursor.Visible = .t.
	var_Cursor.ShowCursorCategoryLine = 0
oGraph.EndUpdate()

61
How can I show the values from the cursor

Dim oGraph as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.Series.Add("Asia(4600), Africa(1300), Europe(747), North America(579), South America(431), Australia/Oceania(42)")
oGraph.Cursor.Visible = .t.
oGraph.EndUpdate()

60
Defines the style to display the axis-line
Dim oGraph as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.ValueAxis.AxisLine.Style = 2
oGraph.CategoryAxis.AxisLine.Style = 2
oGraph.AutoFit = .t.
oGraph.Series.Add("Paris(2148271),Marseille(1748148),Lyon(1637677),Toulouse(1360829),Nice(1000548),Nantes(973133),Strasbourg(785839),Montpellier(590741),Bordeaux(589649),Lille(484786)")
oGraph.EndUpdate()

59
Defines the color to show the axis

Dim oGraph as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.ValueAxis.AxisLine.Color = "red"
oGraph.CategoryAxis.AxisLine.Color = "red"
oGraph.AutoFit = .t.
oGraph.Series.Add("Paris(2148271),Marseille(1748148),Lyon(1637677),Toulouse(1360829),Nice(1000548),Nantes(973133),Strasbourg(785839),Montpellier(590741),Bordeaux(589649),Lille(484786)")
oGraph.EndUpdate()

58
Specifies the step to show the ticks for value or category axes

Dim oGraph as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.ValueAxis.MajorTicks.Step = 2
oGraph.AutoFit = .t.
oGraph.Series.Add("Berlin(3769495),Hamburg(1847253),Munich(1471508),Cologne(1085664),Frankfurt(753056),Stuttgart(731374),Düsseldorf(620877),Dortmund(586600),Essen(582760),Bremen(565719)")
oGraph.Sort = "0:D"
oGraph.EndUpdate()

57
Specifies the number of ticks to skip for value or category axes

Dim oGraph as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.ValueAxis.MajorTicks.Skip = 3
oGraph.AutoFit = .t.
oGraph.Series.Add("Berlin(3769495),Hamburg(1847253),Munich(1471508),Cologne(1085664),Frankfurt(753056),Stuttgart(731374),Düsseldorf(620877),Dortmund(586600),Essen(582760),Bremen(565719)")
oGraph.Sort = "0:D"
oGraph.EndUpdate()

56
Defines the style to show the major-ticks of value or category axes
Dim oGraph as P
Dim var_TickOptions as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
var_TickOptions = oGraph.ValueAxis.MajorTicks
	var_TickOptions.Style = 1
	var_TickOptions.Width = 3
oGraph.AutoFit = .t.
oGraph.Series.Add("Berlin(3769495),Hamburg(1847253),Munich(1471508),Cologne(1085664),Frankfurt(753056),Stuttgart(731374),Düsseldorf(620877),Dortmund(586600),Essen(582760),Bremen(565719)")
oGraph.Sort = "0:D"
oGraph.EndUpdate()

55
Defines the color to show the major-ticks of value or category axes

Dim oGraph as P
Dim var_TickOptions as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
var_TickOptions = oGraph.ValueAxis.MajorTicks
	var_TickOptions.Color = "red"
	var_TickOptions.Width = 3
oGraph.AutoFit = .t.
oGraph.Series.Add("Berlin(3769495),Hamburg(1847253),Munich(1471508),Cologne(1085664),Frankfurt(753056),Stuttgart(731374),Düsseldorf(620877),Dortmund(586600),Essen(582760),Bremen(565719)")
oGraph.Sort = "0:D"
oGraph.EndUpdate()

54
Specifies the size to show the major-ticks of value or category axes
Dim oGraph as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.ValueAxis.MajorTicks.Width = 3
oGraph.AutoFit = .t.
oGraph.Series.Add("Berlin(3769495),Hamburg(1847253),Munich(1471508),Cologne(1085664),Frankfurt(753056),Stuttgart(731374),Düsseldorf(620877),Dortmund(586600),Essen(582760),Bremen(565719)")
oGraph.Sort = "0:D"
oGraph.EndUpdate()

53
Defines the step to show the major-grid lines, for value or category axes

Dim oGraph as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.ValueAxis.MajorGridLines.Step = 2
oGraph.AutoFit = .t.
oGraph.Series.Add("Bucharest(1883425),Cluj-Napoca(316748),Timisoara(319279),Iasi(382484),Constanta(283872),Brasov(253200),Galati(249432),Craiova(269506),Ploiesti(209945),Oradea(222239)")
oGraph.Sort = "0:D"
oGraph.EndUpdate()

52
Specifies the number of major grid-line's to skip, for value or category axes

Dim oGraph as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.ValueAxis.MajorGridLines.Skip = 3
oGraph.AutoFit = .t.
oGraph.Series.Add("Bucharest(1883425),Cluj-Napoca(316748),Timisoara(319279),Iasi(382484),Constanta(283872),Brasov(253200),Galati(249432),Craiova(269506),Ploiesti(209945),Oradea(222239)")
oGraph.Sort = "0:D"
oGraph.EndUpdate()

51
Specifies the style of the major grid-line (dash, dot, ...), for value or category axes

Dim oGraph as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.ValueAxis.MajorGridLines.Style = 2
oGraph.AutoFit = .t.
oGraph.Series.Add("Bucharest(1883425),Cluj-Napoca(316748),Timisoara(319279),Iasi(382484),Constanta(283872),Brasov(253200),Galati(249432),Craiova(269506),Ploiesti(209945),Oradea(222239)")
oGraph.Sort = "0:D"
oGraph.EndUpdate()

50
Specifies the major grid-line's color, for value or category axes

Dim oGraph as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.ValueAxis.MajorGridLines.Color = "red"
oGraph.AutoFit = .t.
oGraph.Series.Add("Bucharest(1883425),Cluj-Napoca(316748),Timisoara(319279),Iasi(382484),Constanta(283872),Brasov(253200),Galati(249432),Craiova(269506),Ploiesti(209945),Oradea(222239)")
oGraph.Sort = "0:D"
oGraph.EndUpdate()

49
Specifies the major grid-line's width or size, for value or category axes

Dim oGraph as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.ValueAxis.MajorGridLines.Width = 2
oGraph.AutoFit = .t.
oGraph.Series.Add("Bucharest(1883425),Cluj-Napoca(316748),Timisoara(319279),Iasi(382484),Constanta(283872),Brasov(253200),Galati(249432),Craiova(269506),Ploiesti(209945),Oradea(222239)")
oGraph.Sort = "0:D"
oGraph.EndUpdate()

48
Hide the labels of the grid lines (chart, overview)

Dim oGraph as P
Dim var_CategoryAxis as P
Dim var_FormatGridLinesOptions as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.ValueSize = 64
var_CategoryAxis = oGraph.CategoryAxis
	var_CategoryAxis.Categories = "Anchorage,Juneau,Fairbanks,Sitka,Ketchikan,Wasilla,Kenai,Kodiak,Bethel,Palmer"
	var_FormatGridLinesOptions = var_CategoryAxis.ChartGridLines
		var_FormatGridLinesOptions.Color = "black"
		var_FormatGridLinesOptions.Format = "value"
		var_FormatGridLinesOptions.Align = 1024
oGraph.Series.Add("291247,32269,30917,8588,8208,10529,7757,5968,6481,7393")
oGraph.EndUpdate()

47
Aligns the labels of the grid lines (chart, overview)

Dim oGraph as P
Dim var_CategoryAxis as P
Dim var_FormatGridLinesOptions as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.ValueSize = 64
var_CategoryAxis = oGraph.CategoryAxis
	var_CategoryAxis.Categories = "Anchorage,Juneau,Fairbanks,Sitka,Ketchikan,Wasilla,Kenai,Kodiak,Bethel,Palmer"
	var_FormatGridLinesOptions = var_CategoryAxis.ChartGridLines
		var_FormatGridLinesOptions.Color = "black"
		var_FormatGridLinesOptions.Format = "`<fgcolor gray>` + value"
		var_FormatGridLinesOptions.Align = 258 'exTextNoClip + exTextAlignRight
oGraph.Series.Add("291247,32269,30917,8588,8208,10529,7757,5968,6481,7393")
oGraph.EndUpdate()

46
Defines where the grid lines appear on chart or overview

Dim oGraph as P
Dim var_CategoryAxis as P
Dim var_FormatGridLinesOptions as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
var_CategoryAxis = oGraph.CategoryAxis
	var_CategoryAxis.Categories = "Anchorage,Juneau,Fairbanks,Sitka,Ketchikan,Wasilla,Kenai,Kodiak,Bethel,Palmer"
	var_FormatGridLinesOptions = var_CategoryAxis.ChartGridLines
		var_FormatGridLinesOptions.Color = "black"
		var_FormatGridLinesOptions.Format = "value = `Sitka`"
		var_FormatGridLinesOptions.Align = 1024
oGraph.Series.Add("291247,32269,30917,8588,8208,10529,7757,5968,6481,7393")
oGraph.EndUpdate()

45
Defines the labels between grid lines (chart, overview)

Dim oGraph as P
Dim var_CategoryAxis as P
Dim var_FormatGridLinesOptions as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
var_CategoryAxis = oGraph.CategoryAxis
	var_CategoryAxis.Format = "``"
	var_CategoryAxis.Categories = "Anchorage,Juneau,Fairbanks,Sitka,Ketchikan,Wasilla,Kenai,Kodiak,Bethel,Palmer"
	var_FormatGridLinesOptions = var_CategoryAxis.ChartGridLines
		var_FormatGridLinesOptions.Color = "black"
		var_FormatGridLinesOptions.Format = "`<c>` + value + `<br><c>` + index"
oGraph.Series.Add("291247,32269,30917,8588,8208,10529,7757,5968,6481,7393")
oGraph.EndUpdate()

44
Defines the step to show the grid lines (chart, overview)

Dim oGraph as P
Dim var_CategoryAxis as P
Dim var_FormatGridLinesOptions as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
var_CategoryAxis = oGraph.CategoryAxis
	var_CategoryAxis.Categories = "Anchorage,Juneau,Fairbanks,Sitka,Ketchikan,Wasilla,Kenai,Kodiak,Bethel,Palmer"
	var_FormatGridLinesOptions = var_CategoryAxis.ChartGridLines
		var_FormatGridLinesOptions.Color = "black"
		var_FormatGridLinesOptions.Format = "index"
		var_FormatGridLinesOptions.Step = 2
oGraph.Series.Add("291247,32269,30917,8588,8208,10529,7757,5968,6481,7393")
oGraph.EndUpdate()

43
Specifies the number of grid lines to skip (chart, overview)

Dim oGraph as P
Dim var_CategoryAxis as P
Dim var_FormatGridLinesOptions as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
var_CategoryAxis = oGraph.CategoryAxis
	var_CategoryAxis.Categories = "Anchorage,Juneau,Fairbanks,Sitka,Ketchikan,Wasilla,Kenai,Kodiak,Bethel,Palmer"
	var_FormatGridLinesOptions = var_CategoryAxis.ChartGridLines
		var_FormatGridLinesOptions.Color = "black"
		var_FormatGridLinesOptions.Format = "index"
		var_FormatGridLinesOptions.Skip = 3
oGraph.Series.Add("291247,32269,30917,8588,8208,10529,7757,5968,6481,7393")
oGraph.EndUpdate()

42
Defines the grid-line dash-dot-dot-style (chart, overview)

Dim oGraph as P
Dim var_CategoryAxis as P
Dim var_FormatGridLinesOptions as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
var_CategoryAxis = oGraph.CategoryAxis
	var_CategoryAxis.Categories = "Anchorage,Juneau,Fairbanks,Sitka,Ketchikan,Wasilla,Kenai,Kodiak,Bethel,Palmer"
	var_FormatGridLinesOptions = var_CategoryAxis.ChartGridLines
		var_FormatGridLinesOptions.Color = "black"
		var_FormatGridLinesOptions.Style = 4
		var_FormatGridLinesOptions.Format = "index"
oGraph.Series.Add("291247,32269,30917,8588,8208,10529,7757,5968,6481,7393")
oGraph.EndUpdate()

41
Defines the grid-line dash-dot-style (chart, overview)

Dim oGraph as P
Dim var_CategoryAxis as P
Dim var_FormatGridLinesOptions as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
var_CategoryAxis = oGraph.CategoryAxis
	var_CategoryAxis.Categories = "Anchorage,Juneau,Fairbanks,Sitka,Ketchikan,Wasilla,Kenai,Kodiak,Bethel,Palmer"
	var_FormatGridLinesOptions = var_CategoryAxis.ChartGridLines
		var_FormatGridLinesOptions.Color = "black"
		var_FormatGridLinesOptions.Style = 3
		var_FormatGridLinesOptions.Format = "index"
oGraph.Series.Add("291247,32269,30917,8588,8208,10529,7757,5968,6481,7393")
oGraph.EndUpdate()

40
Defines the grid-line dot-style (chart, overview)

Dim oGraph as P
Dim var_CategoryAxis as P
Dim var_FormatGridLinesOptions as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
var_CategoryAxis = oGraph.CategoryAxis
	var_CategoryAxis.Categories = "Anchorage,Juneau,Fairbanks,Sitka,Ketchikan,Wasilla,Kenai,Kodiak,Bethel,Palmer"
	var_FormatGridLinesOptions = var_CategoryAxis.ChartGridLines
		var_FormatGridLinesOptions.Color = "black"
		var_FormatGridLinesOptions.Style = 2
		var_FormatGridLinesOptions.Format = "index"
oGraph.Series.Add("291247,32269,30917,8588,8208,10529,7757,5968,6481,7393")
oGraph.EndUpdate()

39
Defines the grid-line dash-style (chart, overview)

Dim oGraph as P
Dim var_CategoryAxis as P
Dim var_FormatGridLinesOptions as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
var_CategoryAxis = oGraph.CategoryAxis
	var_CategoryAxis.Categories = "Anchorage,Juneau,Fairbanks,Sitka,Ketchikan,Wasilla,Kenai,Kodiak,Bethel,Palmer"
	var_FormatGridLinesOptions = var_CategoryAxis.ChartGridLines
		var_FormatGridLinesOptions.Color = "black"
		var_FormatGridLinesOptions.Style = 1
		var_FormatGridLinesOptions.Format = "index"
oGraph.Series.Add("291247,32269,30917,8588,8208,10529,7757,5968,6481,7393")
oGraph.EndUpdate()

38
Specifies the grid-line's color (chart, overview)

Dim oGraph as P
Dim var_CategoryAxis as P
Dim var_FormatGridLinesOptions as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
var_CategoryAxis = oGraph.CategoryAxis
	var_CategoryAxis.Categories = "Anchorage,Juneau,Fairbanks,Sitka,Ketchikan,Wasilla,Kenai,Kodiak,Bethel,Palmer"
	var_FormatGridLinesOptions = var_CategoryAxis.ChartGridLines
		var_FormatGridLinesOptions.Color = "red"
		var_FormatGridLinesOptions.Format = "index"
oGraph.Series.Add("291247,32269,30917,8588,8208,10529,7757,5968,6481,7393")
oGraph.EndUpdate()

37
Specifies the grid-line's width or size (chart, overview)

Dim oGraph as P
Dim var_CategoryAxis as P
Dim var_FormatGridLinesOptions as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
var_CategoryAxis = oGraph.CategoryAxis
	var_CategoryAxis.Categories = "Anchorage,Juneau,Fairbanks,Sitka,Ketchikan,Wasilla,Kenai,Kodiak,Bethel,Palmer"
	var_FormatGridLinesOptions = var_CategoryAxis.ChartGridLines
		var_FormatGridLinesOptions.Color = "black"
		var_FormatGridLinesOptions.Format = "index"
		var_FormatGridLinesOptions.Width = 2
oGraph.Series.Add("291247,32269,30917,8588,8208,10529,7757,5968,6481,7393")
oGraph.EndUpdate()

36
Occurs when the user dblclk the left mouse button over an object
' Occurs when the user dblclk the left mouse button over an object.
function DblClick as v (Shift  as  N,X  as  OLE::Exontrol.Graph.1::OLE_XPOS_PIXELS,Y  as  OLE::Exontrol.Graph.1::OLE_YPOS_PIXELS)
	oGraph = topparent:CONTROL_ACTIVEX1.activex
	? "DblClick event" 
end function

Dim oGraph as P
Dim var_Serie as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.ValueSize = 18
var_Serie = oGraph.Series.Add("Hulunbuir{China}(263068),Abu Dhabi{United Arab Emirates}(97200),Jiuquan{China}(167996),Altamira{Brazil}(159891),Brasília{Brazil}(5784),Mumbai{India}(603.4),Delhi{India}(1484),Chongqing{China}(82400),Hulunbuir{China}(263068),Sao Paulo{Brazil}(1522),Linfen{China}(20527),Santiago{Chile}(641),Mexico City{Mexico}(1485),Belo Horizonte{Brazil}(313),Hangzhou{China}(16817),Nairobi{Kenya}(696),Berlin{Germany}(891.68),Montreal{Canada}(431.5),Cordoba{Argentina}(576),Manaus{Brazil}(11401),Astana{Kazakhstan}(810),Goiânia{Brazil}(741),Cali{Colombia}(564),Sao Paulo{Brazil}(1522),Goiania{Brazil}(781)")
	var_Serie.Type = "Col"
	var_Serie.Vertical = .t.
oGraph.Sort = "0:D"

35
Occurs when the user presses and then releases the left mouse button over the control
' Occurs when the user presses and then releases the left mouse button over the control.
function Click as v ()
	oGraph = topparent:CONTROL_ACTIVEX1.activex
	? "Click event" 
end function

Dim oGraph as P
Dim var_Serie as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.ValueSize = 18
var_Serie = oGraph.Series.Add("Hulunbuir{China}(263068),Abu Dhabi{United Arab Emirates}(97200),Jiuquan{China}(167996),Altamira{Brazil}(159891),Brasília{Brazil}(5784),Mumbai{India}(603.4),Delhi{India}(1484),Chongqing{China}(82400),Hulunbuir{China}(263068),Sao Paulo{Brazil}(1522),Linfen{China}(20527),Santiago{Chile}(641),Mexico City{Mexico}(1485),Belo Horizonte{Brazil}(313),Hangzhou{China}(16817),Nairobi{Kenya}(696),Berlin{Germany}(891.68),Montreal{Canada}(431.5),Cordoba{Argentina}(576),Manaus{Brazil}(11401),Astana{Kazakhstan}(810),Goiânia{Brazil}(741),Cali{Colombia}(564),Sao Paulo{Brazil}(1522),Goiania{Brazil}(781)")
	var_Serie.Type = "Col"
	var_Serie.Vertical = .t.

34
Determine the code of the key the user presses
' Occurs when the user presses and releases an ANSI key.
function KeyPress as v (KeyAscii  as  N)
	' print"KeyAscii",KeyAscii)
	oGraph = topparent:CONTROL_ACTIVEX1.activex
end function

Dim oGraph as P
Dim var_Serie as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.ValueSize = 48
oGraph.Template = "Misc(10) = 0" // oGraph.Misc(10) = 0
var_Serie = oGraph.Series.Add("China(1403500365),India(1368737513),UnitedStates(330810184),Indonesia(272881945),Pakistan(220892331),Brazil(212559417),Nigeria(206139587),Bangladesh(169575884),Russia(145912025),Mexico(128932753),Japan(126476458),Ethiopia(114963588),Philippines(112392078),Egypt(110530608),Vietnam(97429061),DR.Congo(89561404),Turkey(84339067),Iran(83720412),Germany(83132799),Thailand(69799978),UnitedKingdom(68207116),France(65311982),Italy(59554028),Tanzania(59091392),SouthAfrica(58775022)")
	var_Serie.Type = "Pie"
	var_Serie.ShowValue = 7 'exValue + exLine + exPoint
	var_Serie.ValueFormat = "category"

33
Determine the code of the key the user just released
' Occurs when the user releases a key while an object has the focus.
function KeyUp as v (KeyCode  as  N,Shift  as  N)
	' print"KeyCode",KeyCode)
	oGraph = topparent:CONTROL_ACTIVEX1.activex
end function

Dim oGraph as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.ValueSize = 48
oGraph.Template = "Misc(10) = 0" // oGraph.Misc(10) = 0
oGraph.Series.Add("Russia(17098242),Canada(9984670),China(9596961),UnitedStates(9525067),Brazil(8515767),Australia(7692024),India(3287263),Argentina(2780400),Kazakhstan(2724900),Algeria(2381741),CongoDemocraticRepublicofthe(2344858),Greenland(2166086),SaudiArabia(2149690),Mexico(1964375),Indonesia(1904569),Sudan(1861484),Libya(1759540),Iran(1648195),Mongolia(1564116),Peru(1285216),Niger(1267000),Chad(1284000),Angola(1246700),Mali(1240192),SouthAfrica(1221037)")

32
Determine the code of the key the user presses
' Occurs when the user presses a key while an object has the focus.
function KeyDown as v (KeyCode  as  N,Shift  as  N)
	' print"KeyCode",KeyCode)
	oGraph = topparent:CONTROL_ACTIVEX1.activex
end function

Dim oGraph as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.ValueSize = 48
oGraph.Template = "Misc(10) = 0" // oGraph.Misc(10) = 0
oGraph.Series.Add("Russia(17098242),Canada(9984670),China(9596961),UnitedStates(9525067),Brazil(8515767),Australia(7692024),India(3287263),Argentina(2780400),Kazakhstan(2724900),Algeria(2381741),CongoDemocraticRepublicofthe(2344858),Greenland(2166086),SaudiArabia(2149690),Mexico(1964375),Indonesia(1904569),Sudan(1861484),Libya(1759540),Iran(1648195),Mongolia(1564116),Peru(1285216),Niger(1267000),Chad(1284000),Angola(1246700),Mali(1240192),SouthAfrica(1221037)")

31
How can reverse the chart

Dim oGraph as P
Dim var_Serie as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.AutoFit = .t.
oGraph.ValueAxis.Reverse = .t.
var_Serie = oGraph.Series.Add("Friendster(121111111),Facebook(979750000),Flickr(79664888),Google Buzz(170000000),Google+(107319100),Hi5(900202990),Instagram(80202990),MySpace(80202990),Orkut(45067022),Pinterest(197319100),Reddit(360250000),Snapchat(280250000),TikTok(860250000),Tumblr(146890156),Twitter(160250000),WeChat(118123370),Weibo(79195730),Whatsapp(1160250000),YouTube(844638200)")
	var_Serie.Vertical = .t.
oGraph.SeriesColors = "dodgerblue"

30
How do I enable the scrollbar-extension, as thumb to be shown outside of the control's client area

Dim oGraph as P
Dim var_Serie as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.ScrollBars = 15
oGraph.Template = "ScrollPartVisible(0,65536) = True" // oGraph.ScrollPartVisible(0,65536) = .t.
oGraph.Template = "ScrollPartVisible(1,65536) = True" // oGraph.ScrollPartVisible(1,65536) = .t.
oGraph.Template = "ScrollPartVisible(2,65536) = True" // oGraph.ScrollPartVisible(2 '2 + ,65536) = .t.
oGraph.ScrollWidth = 4
oGraph.Template = "Background(276) = 15790320" // oGraph.Background(276 '114 + ) = 15790320
oGraph.Template = "Background(260) = 8421504" // oGraph.Background(260 '104 + ) = 8421504
oGraph.ScrollHeight = 4
oGraph.Template = "Background(404) = Background(276)" // oGraph.Background(404 '194 + ) = oGraph.Background(276 '114 + )
oGraph.Template = "Background(388) = Background(260)" // oGraph.Background(388 '184 + ) = oGraph.Background(260 '104 + )
oGraph.Template = "Background(511) = Background(276)" // oGraph.Background(511 '12c + exSerieCursorTooltipTransparent) = oGraph.Background(276 '114 + )
oGraph.BeginUpdate()
oGraph.ValueSize = 6
oGraph.Data = "C:\Program Files\Exontrol\ExGraph\Sample\Data/aapl.txt"
var_Serie = oGraph.Series.Add()
	var_Serie.Name = "aapl"
	var_Serie.Data = "AAPL (open),AAPL (high),AAPL (low),AAPL (close)"
	var_Serie.Type = "candle"
oGraph.EndUpdate()
oGraph.EndUpdate()

29
Define a bubble chart-type

Dim oGraph as P
Dim var_Serie as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
var_Serie = oGraph.Series.Add()
	var_Serie.Data = "1 99 1,2 96 2,3 92 3,4 86 4,5 79 5,6 70 6,7 60 7,8 50 8,9 38 9,10 25 10,11 13 11"
	var_Serie.Type = "bubble"
	' var_Serie.Misc(1) = 96
	oGraph.TemplateDef = "dim var_Serie"
	oGraph.TemplateDef = var_Serie
	oGraph.Template = "var_Serie.Misc(1) = 96"


28
Is it possible to show the values with the same color (method 2)

Dim oGraph as P
Dim var_Serie as P
Dim var_ValueAxis as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.Template = "Misc(13) = True" // oGraph.Misc(13) = .t.
oGraph.Template = "Misc(22) = 0" // oGraph.Misc(22) = 0
oGraph.ValuePoint = ",,,,,,,,,0,0"
var_ValueAxis = oGraph.ValueAxis
	var_ValueAxis.Format = "value ? (value / 1000000)  + `<br><c>mil`: ``"
	var_ValueAxis.Tfi = "<fgcolor gray> bold"
var_Serie = oGraph.Series.Add("China(1439323776),India(1380004385),US(331002651),Indonesia(273523615),Pakistan(220892340),Brazil(212559417),Nigeria(206139589),Bangladesh(164689383),Russia(145934462),Mexico(128932753)")
	var_Serie.Type = "column"
	var_Serie.ShowValue = 7 'exValue + exLine + exPoint
	var_Serie.ValueFormat = "((value format ``) replace `.00` with ``)"
	var_Serie.Color = "blue"
oGraph.Sort = "0:D"
oGraph.EndUpdate()

27
Is it possible to show the values with the same color (method 1)

Dim oGraph as P
Dim var_Serie as P
Dim var_Serie1 as local
Dim var_ValueAxis as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.Template = "Misc(13) = True" // oGraph.Misc(13) = .t.
oGraph.Template = "Misc(22) = 0" // oGraph.Misc(22) = 0
oGraph.ValuePoint = ",,,,,,,,,0,0"
var_ValueAxis = oGraph.ValueAxis
	var_ValueAxis.Format = "value ? (value / 1000000)  + `<br><c>mil`: ``"
	var_ValueAxis.Tfi = "<fgcolor gray> bold"
var_Serie = oGraph.Series.Add("China(1439323776),India(1380004385),US(331002651),Indonesia(273523615),Pakistan(220892340),Brazil(212559417),Nigeria(206139589),Bangladesh(164689383),Russia(145934462),Mexico(128932753)")
	var_Serie.Type = "column"
	var_Serie.ShowValue = 7 'exValue + exLine + exPoint
	var_Serie.ValueFormat = "((value format ``) replace `.00` with ``)"
' oGraph.Series.Add("0").Visible = .f.
var_Serie1 = oGraph.Series.Add("0")
oGraph.TemplateDef = "dim var_Serie1"
oGraph.TemplateDef = var_Serie1
oGraph.Template = "var_Serie1.Visible = False"

oGraph.Sort = "0:D"
oGraph.EndUpdate()

26
Pie chart

Dim oGraph as P
Dim var_Legend as P
Dim var_Serie as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
var_Serie = oGraph.Series.Add("Tokyo(37833000), Delhi(30290000), Shanghai(27058000), São Paulo(22043000), Mumbai(20668000), Beijing(20384000), Karachi(20000000), Dhaka(17072000), Istanbul(15029000), Los Angeles(13131000)")
	var_Serie.Type = "pie"
	var_Serie.ShowValue = -1 'ffffff78 + exHideIfEmpty + exValue + exLine + exPoint
	var_Serie.ValueFormat = "category + `<br>` + ((percent) format ``) + `%`"
	var_Serie.LegendFormat = "label + `(` + ((percent) format ``) + `%)`"
oGraph.ValuePoint = ",,,,,,,,transparent"
var_Legend = oGraph.Legend
	var_Legend.Visible = .t.
oGraph.EndUpdate()

25
Define the pad for value-label

Dim oGraph as P
Dim var_Serie as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.ValueAxis.Format = "value/100000"
var_Serie = oGraph.Series.Add("Tokyo(37833000), Delhi(30290000), Shanghai(27058000), São Paulo(22043000), Mumbai(20668000), Beijing(20384000), Karachi(20000000), Dhaka(17072000), Istanbul(15029000), Los Angeles(13131000)")
	var_Serie.ShowValue = -1 'ffffff78 + exHideIfEmpty + exValue + exLine + exPoint
oGraph.ValuePoint = ",,,,,,,,,,8"
oGraph.EndUpdate()

24
Hide the frame around the value-label

Dim oGraph as P
Dim var_Serie as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.ValueAxis.Format = "value/100000"
var_Serie = oGraph.Series.Add("Tokyo(37833000), Delhi(30290000), Shanghai(27058000), São Paulo(22043000), Mumbai(20668000), Beijing(20384000), Karachi(20000000), Dhaka(17072000), Istanbul(15029000), Los Angeles(13131000)")
	var_Serie.ShowValue = -1 'ffffff78 + exHideIfEmpty + exValue + exLine + exPoint
oGraph.ValuePoint = ",,,,,,,,,0"
oGraph.EndUpdate()

23
Remove the frame around the value-label

Dim oGraph as P
Dim var_Serie as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.ValueAxis.Format = "value/100000"
var_Serie = oGraph.Series.Add("Tokyo(37833000), Delhi(30290000), Shanghai(27058000), São Paulo(22043000), Mumbai(20668000), Beijing(20384000), Karachi(20000000), Dhaka(17072000), Istanbul(15029000), Los Angeles(13131000)")
	var_Serie.ShowValue = -1 'ffffff78 + exHideIfEmpty + exValue + exLine + exPoint
oGraph.ValuePoint = ",,,,,,,,transparent"
oGraph.EndUpdate()

22
Apply the color of the data-value to the value-label

Dim oGraph as P
Dim var_Serie as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.ValueAxis.Format = "value/100000"
var_Serie = oGraph.Series.Add("Tokyo(37833000), Delhi(30290000), Shanghai(27058000), São Paulo(22043000), Mumbai(20668000), Beijing(20384000), Karachi(20000000), Dhaka(17072000), Istanbul(15029000), Los Angeles(13131000)")
	var_Serie.ShowValue = -1 'ffffff78 + exHideIfEmpty + exValue + exLine + exPoint
	var_Serie.ValueFormat = "`<fgcolor white>` + value"
oGraph.ValuePoint = ",,,,,,,null"
oGraph.EndUpdate()

21
Apply an opaque color to the value-label

Dim oGraph as P
Dim var_Serie as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.ValueAxis.Format = "value/100000"
var_Serie = oGraph.Series.Add("Tokyo(37833000), Delhi(30290000), Shanghai(27058000), São Paulo(22043000), Mumbai(20668000), Beijing(20384000), Karachi(20000000), Dhaka(17072000), Istanbul(15029000), Los Angeles(13131000)")
	var_Serie.ShowValue = -1 'ffffff78 + exHideIfEmpty + exValue + exLine + exPoint
oGraph.ValuePoint = ",,,,,,,red"
oGraph.EndUpdate()

20
Remove the line that connects the value point to value-label (method 2)

Dim oGraph as P
Dim var_Serie as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.ValueAxis.Format = "value/100000"
var_Serie = oGraph.Series.Add("Tokyo(37833000), Delhi(30290000), Shanghai(27058000), São Paulo(22043000), Mumbai(20668000), Beijing(20384000), Karachi(20000000), Dhaka(17072000), Istanbul(15029000), Los Angeles(13131000)")
	var_Serie.ShowValue = -1 'ffffff78 + exHideIfEmpty + exValue + exLine + exPoint
oGraph.ValuePoint = ",,,,,,0"
oGraph.EndUpdate()

19
Define a shorter line (connects the value point to value-label)

Dim oGraph as P
Dim var_Serie as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.ValueAxis.Format = "value/100000"
var_Serie = oGraph.Series.Add("Tokyo(37833000), Delhi(30290000), Shanghai(27058000), São Paulo(22043000), Mumbai(20668000), Beijing(20384000), Karachi(20000000), Dhaka(17072000), Istanbul(15029000), Los Angeles(13131000)")
	var_Serie.ShowValue = -1 'ffffff78 + exHideIfEmpty + exValue + exLine + exPoint
oGraph.ValuePoint = ",,,,,,8"
oGraph.EndUpdate()

18
Define the size of the line that connects the value point to value-label

Dim oGraph as P
Dim var_Serie as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.ValueAxis.Format = "value/100000"
var_Serie = oGraph.Series.Add("Tokyo(37833000), Delhi(30290000), Shanghai(27058000), São Paulo(22043000), Mumbai(20668000), Beijing(20384000), Karachi(20000000), Dhaka(17072000), Istanbul(15029000), Los Angeles(13131000)")
	var_Serie.ShowValue = -1 'ffffff78 + exHideIfEmpty + exValue + exLine + exPoint
oGraph.ValuePoint = ",,,,,1"
oGraph.EndUpdate()

17
Hide the line that connects the value point to value-label

Dim oGraph as P
Dim var_Serie as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.ValueAxis.Format = "value/100000"
var_Serie = oGraph.Series.Add("Tokyo(37833000), Delhi(30290000), Shanghai(27058000), São Paulo(22043000), Mumbai(20668000), Beijing(20384000), Karachi(20000000), Dhaka(17072000), Istanbul(15029000), Los Angeles(13131000)")
	var_Serie.ShowValue = -1 'ffffff78 + exHideIfEmpty + exValue + exLine + exPoint
oGraph.ValuePoint = ",,,,,0"
oGraph.EndUpdate()

16
Remove the line that connects the value point to value-label (method 1)

Dim oGraph as P
Dim var_Serie as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.ValueAxis.Format = "value/100000"
var_Serie = oGraph.Series.Add("Tokyo(37833000), Delhi(30290000), Shanghai(27058000), São Paulo(22043000), Mumbai(20668000), Beijing(20384000), Karachi(20000000), Dhaka(17072000), Istanbul(15029000), Los Angeles(13131000)")
	var_Serie.ShowValue = -1 'ffffff78 + exHideIfEmpty + exValue + exLine + exPoint
oGraph.ValuePoint = ",,,,transparent"
oGraph.EndUpdate()

15
Change the color to show the line that connects the value point to value-label

Dim oGraph as P
Dim var_Serie as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.ValueAxis.Format = "value/100000"
var_Serie = oGraph.Series.Add("Tokyo(37833000), Delhi(30290000), Shanghai(27058000), São Paulo(22043000), Mumbai(20668000), Beijing(20384000), Karachi(20000000), Dhaka(17072000), Istanbul(15029000), Los Angeles(13131000)")
	var_Serie.ShowValue = -1 'ffffff78 + exHideIfEmpty + exValue + exLine + exPoint
oGraph.ValuePoint = ",,,,red"
oGraph.EndUpdate()

14
Change the frame's size around the value-point

Dim oGraph as P
Dim var_Serie as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.ValueAxis.Format = "value/100000"
var_Serie = oGraph.Series.Add("Tokyo(37833000), Delhi(30290000), Shanghai(27058000), São Paulo(22043000), Mumbai(20668000), Beijing(20384000), Karachi(20000000), Dhaka(17072000), Istanbul(15029000), Los Angeles(13131000)")
	var_Serie.ShowValue = -1 'ffffff78 + exHideIfEmpty + exValue + exLine + exPoint
oGraph.ValuePoint = ",,,4"
oGraph.EndUpdate()

13
Change the frame's size around the value-point

Dim oGraph as P
Dim var_Serie as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.ValueAxis.Format = "value/100000"
var_Serie = oGraph.Series.Add("Tokyo(37833000), Delhi(30290000), Shanghai(27058000), São Paulo(22043000), Mumbai(20668000), Beijing(20384000), Karachi(20000000), Dhaka(17072000), Istanbul(15029000), Los Angeles(13131000)")
	var_Serie.ShowValue = -1 'ffffff78 + exHideIfEmpty + exValue + exLine + exPoint
oGraph.ValuePoint = ",,,0"
oGraph.EndUpdate()

12
Hide the value-points, but still the value-label (method 2)

Dim oGraph as P
Dim var_Serie as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.ValueAxis.Format = "value/100000"
var_Serie = oGraph.Series.Add("Tokyo(37833000), Delhi(30290000), Shanghai(27058000), São Paulo(22043000), Mumbai(20668000), Beijing(20384000), Karachi(20000000), Dhaka(17072000), Istanbul(15029000), Los Angeles(13131000)")
	var_Serie.ShowValue = -1 'ffffff78 + exHideIfEmpty + exValue + exLine + exPoint
oGraph.ValuePoint = ",transparent,transparent"
oGraph.EndUpdate()

11
Hide the value-points, but still the value-label (method 1)

Dim oGraph as P
Dim var_Serie as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.ValueAxis.Format = "value/100000"
var_Serie = oGraph.Series.Add("Tokyo(37833000), Delhi(30290000), Shanghai(27058000), São Paulo(22043000), Mumbai(20668000), Beijing(20384000), Karachi(20000000), Dhaka(17072000), Istanbul(15029000), Los Angeles(13131000)")
	var_Serie.ShowValue = -1 'ffffff78 + exHideIfEmpty + exValue + exLine + exPoint
oGraph.ValuePoint = "0"
oGraph.EndUpdate()

10
Change the color to show the border of the value-point

Dim oGraph as P
Dim var_Serie as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.ValueAxis.Format = "value/100000"
var_Serie = oGraph.Series.Add("Tokyo(37833000), Delhi(30290000), Shanghai(27058000), São Paulo(22043000), Mumbai(20668000), Beijing(20384000), Karachi(20000000), Dhaka(17072000), Istanbul(15029000), Los Angeles(13131000)")
	var_Serie.ShowValue = -1 'ffffff78 + exHideIfEmpty + exValue + exLine + exPoint
oGraph.ValuePoint = ",,black"
oGraph.EndUpdate()

9
Makes the value point to show in the data-color

Dim oGraph as P
Dim var_Serie as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.ValueAxis.Format = "value/100000"
var_Serie = oGraph.Series.Add("Tokyo(37833000), Delhi(30290000), Shanghai(27058000), São Paulo(22043000), Mumbai(20668000), Beijing(20384000), Karachi(20000000), Dhaka(17072000), Istanbul(15029000), Los Angeles(13131000)")
	var_Serie.ShowValue = -1 'ffffff78 + exHideIfEmpty + exValue + exLine + exPoint
oGraph.ValuePoint = ",null"
oGraph.EndUpdate()

8
Defines bigger value-points

Dim oGraph as P
Dim var_Serie as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.ValueAxis.Format = "value/100000"
var_Serie = oGraph.Series.Add("Tokyo(37833000), Delhi(30290000), Shanghai(27058000), São Paulo(22043000), Mumbai(20668000), Beijing(20384000), Karachi(20000000), Dhaka(17072000), Istanbul(15029000), Los Angeles(13131000)")
	var_Serie.ShowValue = -1 'ffffff78 + exHideIfEmpty + exValue + exLine + exPoint
oGraph.ValuePoint = "16"
oGraph.EndUpdate()

7
How can I change the color to show the axes (method 3)

Dim oGraph as P
Dim var_ValueAxis as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
var_ValueAxis = oGraph.ValueAxis
	var_ValueAxis.Format = "`<fgcolor red>` + value"
oGraph.Series.Add("Friendster(121111111),Facebook(979750000),Flickr(79664888),Google Buzz(170000000),Google+(107319100),Hi5(900202990),Instagram(80202990),MySpace(80202990),Orkut(45067022),Pinterest(197319100),Reddit(360250000),Snapchat(280250000),TikTok(860250000),Tumblr(146890156),Twitter(160250000),WeChat(118123370),Weibo(79195730),Whatsapp(1160250000),YouTube(844638200)")

6
How can I change the color to show the axes (method 2)

Dim oGraph as P
Dim var_ValueAxis as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
var_ValueAxis = oGraph.ValueAxis
	var_ValueAxis.Tfi = "<fgcolor red>"
oGraph.Series.Add("Friendster(121111111),Facebook(979750000),Flickr(79664888),Google Buzz(170000000),Google+(107319100),Hi5(900202990),Instagram(80202990),MySpace(80202990),Orkut(45067022),Pinterest(197319100),Reddit(360250000),Snapchat(280250000),TikTok(860250000),Tumblr(146890156),Twitter(160250000),WeChat(118123370),Weibo(79195730),Whatsapp(1160250000),YouTube(844638200)")

5
How can I change the color to show the axes (method 1)

Dim oGraph as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.ForeColor = 255
oGraph.Series.Add("Friendster(121111111),Facebook(979750000),Flickr(79664888),Google Buzz(170000000),Google+(107319100),Hi5(900202990),Instagram(80202990),MySpace(80202990),Orkut(45067022),Pinterest(197319100),Reddit(360250000),Snapchat(280250000),TikTok(860250000),Tumblr(146890156),Twitter(160250000),WeChat(118123370),Weibo(79195730),Whatsapp(1160250000),YouTube(844638200)")

4
Does the control's print supports "fit to page"

Dim oGraph as P
Dim var_Print as P
Dim var_Series as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
var_Series = oGraph.Series
	var_Series.Add("Facebook(125),Google(94),Twitter(38),LinkedIn(172),Instagram(53),Pinterest(187),Snapchat(104),WhatsApp(19)")
	var_Series.Add("Facebook(176),Google(81),Twitter(47),LinkedIn(159),Instagram(62),Pinterest(193),Snapchat(118),WhatsApp(25)")
oGraph.EndUpdate()
var_Print = OLE.Create("Exontrol.Print")
	var_Print.PrintExt = oGraph
	var_Print.Preview()

3
How can I print the control

Dim oGraph as P
Dim var_Print as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.ValueSize = 36
oGraph.Series.Add("Facebook(125),Google(94),Twitter(38),LinkedIn(172),Instagram(53),Pinterest(187),Snapchat(104),WhatsApp(19)")
oGraph.EndUpdate()
var_Print = OLE.Create("Exontrol.Print")
	var_Print.PrintExt = oGraph
	var_Print.Preview()

2
How do I change the control's foreground color

Dim oGraph as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.ForeColor = 255
oGraph.Series.Add("-1,2,-3,4")
oGraph.AutoFit = .t.
oGraph.EndUpdate()

1
How do I change the control's background color

Dim oGraph as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.BackColor = 15790320
oGraph.Series.Add("1,2,3,4")
oGraph.AutoFit = .t.
oGraph.EndUpdate()